home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / amicad / arexx_english / conv2meta.amicad < prev    next >
Text File  |  1999-12-06  |  3KB  |  141 lines
  1. /* Converts the current document under the META format, then
  2. converts it at the requested format using MetaView.
  3. Version 1.02e (c) R.Florac, 22 mai 1999 */
  4.  
  5. METAVIEW = 'Work:MetaView/MetaView'
  6.  
  7. options results
  8.  
  9. SIGNAL ON FAILURE
  10. signal on error
  11. signal on syntax
  12.  
  13. APLPORT = ADDRESS()
  14.  
  15. 'SAVE("RAM:AmiCAD.FILE")'
  16. fichier="RAM:AmiCAD.META"
  17.  
  18. 'LOCK(-1):TITLE("Conversion to META format in progress...")'
  19. arguments=" RAM:AmiCAD.FILE TO "||'"'||fichier||'"'||" FORCE QUIET LIBS=Work:AmiCAD/Library"
  20. ADDRESS COMMAND
  21. 'run Work:AmiCAD/AmiCAD2META' arguments
  22.  
  23. do NUMBER = 0 to 20
  24.     if (SHOW(PORTS,"METAVIEW." || NUMBER) = 0) then
  25.     leave
  26. end
  27.  
  28. /*
  29. ** Searching for MetaView: 1. our path above,
  30. **    2. path in env:MetaView.path
  31. ** or 3. you must have a assign "MetaView:"
  32. */
  33.  
  34. if (EXISTS(METAVIEW)=0) then do
  35.     if OPEN("MVVAR","env:MetaView.path","Read") then do
  36.     METAVIEW = READLN("MVVAR")
  37.     end
  38.     if (EXISTS(METAVIEW)=0) then do
  39.     METAVIEW = "MetaView:MetaView"
  40.     end
  41. end
  42.  
  43. /*
  44. ** Enable warnings for WaitForPort
  45. */
  46.  
  47. OPTIONS FAILAT 5
  48. ADDRESS COMMAND
  49.     "run " || METAVIEW || " NODISPLAY"
  50.     MVPORT = "METAVIEW." || NUMBER
  51.     "WaitForPort " || MVPORT
  52.  
  53. OPTIONS FAILAT 21
  54.  
  55. ADDRESS(APLPORT)
  56.  
  57. titre='"Saving format"+CHR(10)+"AMF (Amiga MetaFile)"+CHR(10)+"WMF (Windows MetaFile)"+CHR(10)+"DR2D (Drawing 2D)"+CHR(10)+"CGM (ComputerGraphicMetafile)"+CHR(10)+"GEM"+CHR(10)+"EPS (Encapsulated PostScript)"+CHR(10)+"AI (Adobe Illustrator)"+CHR(10)'
  58. titre=titre||'+"HPGL (Hewlett-Packard Graphics Language)"+CHR(10)+"ILBM (InterLeaved BitMap)"+CHR(10)+"JMF (Java MetaFile)"+CHR(10)+"FIG"+CHR(10)+"META"+CHR(10)'
  59. 'TITLE(""):SELECT('titre')'
  60. CHOICE = result
  61. if result>0 then do
  62.     extension.1 = "AMF"
  63.     extension.2 = "WMF"
  64.     extension.3 = "DR2D"
  65.     extension.4 = "CGM"
  66.     extension.5 = "GEM"
  67.     extension.6 = "EPS"
  68.     extension.7 = "AI"
  69.     extension.8 = "HPGL"
  70.     extension.9 = "ILBM"
  71.     extension.10= "JMF"
  72.     extension.11= "FIG"
  73.     extension.12= "META"
  74.     'REQFILE("Destination 'extension.CHOICE' file?","RAM:", FILEPART("")+".'extension.CHOICE'")'
  75.     FILENAME=result
  76.     if FILENAME~="" then do
  77.     if POS(extension.CHOICE,FILENAME)=0 then FILENAME=FILENAME||"."||extension.CHOICE
  78.     FILENAME='"'||FILENAME||'"'
  79.  
  80.     ADDRESS VALUE MVPORT
  81.     LOAD fichier
  82.     select
  83.         when CHOICE = 1 then do
  84.         SAVE FILENAME AS AMF
  85.         end
  86.         when CHOICE = 2 then do
  87.         SAVE FILENAME AS WMF
  88.         end
  89.         when CHOICE = 3 then do
  90.         SAVE FILENAME AS DR2D
  91.         end
  92.         when CHOICE = 4 then do
  93.         SAVE FILENAME AS CGM
  94.         end
  95.         when CHOICE = 5 then do
  96.         SAVE FILENAME AS GEM
  97.         end
  98.         when CHOICE = 6 then do
  99.         SAVE FILENAME AS EPS
  100.         end
  101.         when CHOICE = 7 then do
  102.         SAVE FILENAME AS AI
  103.         end
  104.         when CHOICE = 8 then do
  105.         SAVE FILENAME AS HPGL
  106.         end
  107.         when CHOICE = 9 then do
  108.         SAVE FILENAME AS ILBM
  109.         end
  110.         when CHOICE = 10 then do
  111.         SAVE FILENAME AS JMF
  112.         end
  113.         when CHOICE = 11 then do
  114.         SAVE FILENAME AS FIG
  115.         end
  116.         otherwise do
  117.         ADDRESS COMMAND
  118.         'c:copy' " RAM:AmiCAD.META TO "||FILENAME
  119.         end
  120.     end
  121.     end
  122. end
  123. fin:
  124. ADDRESS COMMAND
  125. 'c:delete' " RAM:AmiCAD.FILE RAM:AmiCAD.META QUIET"
  126. ADDRESS(APLPORT)
  127. 'UNLOCK(-1):TITLE("")'
  128. EXIT
  129.  
  130. FAILURE:
  131. syntax:
  132. erreur=RC
  133. ADDRESS(APLPORT)
  134. 'MESSAGE("Script Conv2META"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  135. exit
  136.  
  137. error:
  138. ADDRESS(APLPORT)
  139. 'MESSAGE("Script Conv2META"+CHR(10)+"Error in line 'SIGL'")'
  140. exit
  141.